www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/admin/deal_ht.asp

    <!--#include file="../Ku_inc/Ku_sql.asp"-->
<!--#include file="../Ku_inc/Ku_config.asp"-->
<!--#include file="Ku_conn.asp"-->
<!--#include file="../Ku_inc/inc.asp"-->
<!-- #include file="Session.asp"-->
<%
if request("action")="del" then
if Trim(Request("ID"))="" then
	FoundErr=True
	Message=Message & "<li>请您选择要删除的信息！</li>"
else
	call Del()
end if

if FoundErr<>True then
	Sub Del()
		'删除信息
		sql = "delete from quan_ht where ID in ("& Trim(Request("ID")) &")"
		conn.execute (sql)
	End Sub
	'成功提示	   
    response.Write("<script>alert(""删除成功！"");location.href=""ht_list.asp"";</script>")
end if

if FoundErr=True then
	call ErrMsg(Message)
end if
end if
%>





<%
if request("action")="add" then
name=Checkin(trim(Request.form("mingcheng")))
    If name="" Then
    Response.Write "<script>alert(""分类名称不能为空!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_newskind where name='"&name&"'"
    rs.open sql,conn,1,3
    if (rs.eof and rs.bof) then
    rs.addnew

    rs("name")=name

    rs.update
    rs.close
    response.Write("<script>alert(""添加成功！"");location.href=""News_kind.asp"";</script>")
    else
    response.Write("<script>alert(""分类已存在！"");location.href=""News_kind.asp"";</script>")
    end if
    end if 

%>
<%
if request("action")="edit" then
name=Checkin(trim(Request.form("mingcheng")))
id=request("id")
    If name="" Then
    Response.Write "<script>alert(""分类名称不能为空!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_newskind where id="&id
    rs.open sql,conn,1,3
    


    rs("name")=name

    rs.update
    rs.close
    response.Write("<script>alert(""修改成功！"");location.href=""News_kind.asp"";</script>")


    end if 

%>
<%
    if request("action")="shenhenews" then
    id=request("id")
    Set Rs = Server.CreateObject("ADODB.RecordSet")
    Sql="Select * From ku_news where id="&id
    Rs.Open Sql,Conn,1,3
    rs("shenhe")=1

    rs.update
    rs.close
    set rs=nothing
    response.Write("<script>alert(""审核成功！"");location.href=""news_list.asp"";</script>")
    response.end
    end if
%>